COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	1	FORMAT(' TYPE INPUT NAME  '$)
C00003 ENDMK
C⊗;
1	FORMAT(' TYPE INPUT NAME  '$)
2	FORMAT(' TYPE OUTPUT NAME  '$)
3	FORMAT(A5)
4	FORMAT(4I5)
5	TYPE 1
	ACCEPT 3,NM
	TYPE 2
	ACCEPT 3,NM2
	CALL IFILE(1,NM)
	CALL OFILE(20,NM2)
	J=1
6	READ(1,4,END=7)K,L,M,N
	WRITE(20,4)J,L,M,N
	J=J+1
	GO TO 6
7	END FILE 20
	END